(DEFUN allpttxt (source prfix istart istop / count thite ptindx)
  (IF
    (AND istart istop)
     (PROGN
       (SETQ ptindx (- istop istart)
	     thite  (* 0.09 dimsc)
	     count  0
       ) ;_ end of setq
       (WHILE (NOT (EQ count ptindx))
	 (IF
	   (AND
	     (EVAL (READ (STRCAT prfix (ITOA istart))))
	     (STRCAT source prfix (ITOA istart))
	   ) ;_ end of and
	    (ENTMAKE
	      (LIST
		(CONS 0 "TEXT")
		(CONS 10 (EVAL (READ (STRCAT prfix (ITOA istart)))))
		(CONS 40 thite)
		(CONS 1 (STRCAT source prfix (ITOA istart)))
	      ) ;_ end of list
	    ) ;_ end of entmake
	 ) ;_ end of if
	 (SETQ istart (1+ istart)
	       ptindx (1- ptindx)
	 ) ;_ end of setq
       ) ;_ end of while
     ) ;_ end of progn
     (IF
       (AND
	 (EVAL (READ prfix))
	 (STRCAT source prfix)
       ) ;_ end of and
	(PROGN
	  (SETQ thite (* 0.09 dimsc))
	  (ENTMAKE
	    (LIST
	      (CONS 0 "TEXT")
	      (CONS 10 (EVAL (READ prfix)))
	      (CONS 40 thite)
	      (CONS 1 (STRCAT source prfix))
	    ) ;_ end of list
	  ) ;_ end of entmake
	) ;_ end of progn
     ) ;_ end of if
  ) ;_ end of if
  (SETQ	istart nil
	istop nil
  ) ;_ end of setq
  (PRINC)
) ;_ end of defun